home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / pgmmenu.arc / CRC1233.RPG < prev    next >
Text File  |  1991-12-04  |  4KB  |  93 lines

  1.       /TITLE  -  CRC - Retrieve programmer menu defaults.
  2.       *          Program - CRC1233
  3.       *          Reason  - To provide an easy way to add,
  4.       *                    change, delete defaults.
  5.       *          Author  - R. Cozzi, Jr.
  6.       *          Date    - 10/18/85
  7.       *
  8.      E                    LIBL       25 11
  9.      E                    PLIBL      25 11
  10.      IPGMDFT    EUDSCRC1239                    2000
  11.      I              SRCFILE                         SRCF
  12.      I              SRCLIB                          SRCFLB
  13.      I              OBJLIB                          OBJLB
  14.      I              JOBD                            JOBD
  15.      I              JOBDLIB                         JOBDLB
  16.      I              LOG                             LOG
  17.      I              SIGNOFF                         SIGNOF
  18.      I              LOGCLPGM                        LOGCLP
  19.      I              ALWRTVSRC                       ALWRTV
  20.      I              USRPRF                          USRPRF
  21.      I              PUBAUT                          PUBAUT
  22.      I              RSTDSP                          RSTDSP
  23.      I              DFRWRT                          DFRWRT
  24.       *  Data base file size.
  25.      I              SIZE1                           SIZE1
  26.      I              SIZE2                           SIZE2
  27.      I              SIZE3                           SIZE3
  28.      I              MAXRCDS                         MAXRCD
  29.      I              SCHEDULE                        PRTSCH
  30.      I              BLINK                           BLINK
  31.      I              RSTLIBL                         RSTLBL
  32.      I              LIBL                            LIBL
  33.      I              MBRLST                          MBRLST
  34.      I              DFTYPE                          DFTYPE
  35.      I              SHARE                           SHARE
  36.      I              OPTIMIZE                        OPTMIZ
  37.       /SPACE
  38.      C           *LIKE     DEFN SRCF      P1
  39.      C           *LIKE     DEFN SRCFLB    P2
  40.      C           *LIKE     DEFN OBJLB     P3
  41.      C           *LIKE     DEFN JOBD      P4
  42.      C           *LIKE     DEFN JOBDLB    P5
  43.      C           *LIKE     DEFN LOG       P6
  44.      C           *LIKE     DEFN SIGNOF    P7
  45.      C           *LIKE     DEFN LOGCLP    P8
  46.      C           *LIKE     DEFN ALWRTV    P9
  47.      C           *LIKE     DEFN USRPRF    P10
  48.      C           *LIKE     DEFN PUBAUT    P11
  49.      C           *LIKE     DEFN RSTDSP    P12
  50.      C           *LIKE     DEFN DFRWRT    P13
  51.      C           *LIKE     DEFN SIZE1     P14
  52.      C           *LIKE     DEFN SIZE2     P15
  53.      C           *LIKE     DEFN SIZE3     P16
  54.      C           *LIKE     DEFN MAXRCD    P17
  55.      C           *LIKE     DEFN PRTSCH    P18
  56.      C           *LIKE     DEFN BLINK     P19
  57.      C           *LIKE     DEFN RSTLBL    P20
  58.      C           *LIKE     DEFN LIBL      P21
  59.      C           *LIKE     DEFN MBRLST    P22
  60.      C           *LIKE     DEFN DFTYPE    P23
  61.      C           *LIKE     DEFN SHARE     P24
  62.      C           *LIKE     DEFN OPTMIZ    P25
  63.       /SPACE
  64.      C           *ENTRY    PLIST
  65.      C                     PARM SRCF      P1
  66.      C                     PARM SRCFLB    P2
  67.      C                     PARM OBJLB     P3
  68.      C                     PARM JOBD      P4
  69.      C                     PARM JOBDLB    P5
  70.      C                     PARM LOG       P6
  71.      C                     PARM SIGNOF    P7
  72.      C                     PARM LOGCLP    P8
  73.      C                     PARM ALWRTV    P9
  74.      C                     PARM USRPRF    P10
  75.      C                     PARM PUBAUT    P11
  76.      C                     PARM RSTDSP    P12
  77.      C                     PARM DFRWRT    P13
  78.      C                     PARM SIZE1     P14
  79.      C                     PARM SIZE2     P15
  80.      C                     PARM SIZE3     P16
  81.      C                     PARM MAXRCD    P17
  82.      C                     PARM PRTSCH    P18
  83.      C                     PARM BLINK     P19
  84.      C                     PARM RSTLBL    P20
  85.      C                     PARM LIBL      PLIBL
  86.      C                     PARM MBRLST    P22
  87.      C                     PARM DFTYPE    P23
  88.      C                     PARM SHARE     P24
  89.      C                     PARM OPTMIZ    P25
  90.       /SPACE
  91.      C           ENDPGM    TAG
  92.      C                     MOVEL'1'       *INLR
  93.